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PRODUCT COOEl 
PRODUCT NAME) 
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MAINTAINERI 
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i. ABSTRACT 



J- 



PROGRAM TESTS THE AND INSTRUCTING Of THE P0P-8E, THE 
AND'JNSTRUCTJON, INSTRUCTION ADDRESS, OPERAND AOORES§ AND 
BOTH OPERANDS ARE PRODUCED BY RANDOM NUMBER GENERATORS, 



2. REQUIREMENTS 
2,1 EQUIPMENT 



PDP-8E EOUIPPEO WITH AT LEAST 4K OF MEMORY, 
TELETYPE, 
2,2 flOHACE 

THE PROGRAM IS INlTlAULr LOADED INTO LOCATIONS 0000 THRU I17t, 
THE INITIAL TEST AREA IS l200-777t, WHEN THE PROGRAM RELOCAfES, 
IT OCCUPIES tftiBZ»777i, THE TEIT AREA IS THEN »000-6?77, 

2,S PRELIMINARY PROCWAMS 

MAINQEC«9C-O0AAi O0BAf O0CA 

3. U0A9INC PROCEDURE 

THE ITANDARO PROe|0URC POR L0ADIN6 BINARY TAPCI {9 TQ BE USC6. 

4. f TARTIN6 ftOCCPURC 

4.t 9TARTIN6 AOOR|SS 

0201 

4.» CONTROL SWITCH 5CTTIN8S 



8R0ff«t 
SR01I1 
$R0?fl 

$R03iiX 
«R0««1 
SR10«1 

SRliPl 



SUPPRESS HALT ON ERROR 

HALT AT ENP Of PASS, RESTORE LOADERS 

SUPPRESS PROGRAM RELOCATION 

SUPPRESS END OP PASS tyPEOUT 

HOLD DATA 1 CONSTANT 

HOLD DATA 2 CONSTANT 

HOLD INSTRUCTION CONSTANT 



4.3 OPERATOR ACTION 

4.3.1 SET SR TO 0200 

4.3.2 PRESS LOAD ADDRESS SWITCH 

4.3.3 SET SR TO 0000 

4.3.4 PRESS CUEAR AND CONTJNUE SWITCHES 
5. 0PERATIN5 PROCEDURE 



$AH| AS 4. 
6. ERRORS 

(,,i RCLpgATION ^RROR 



IF AN ERROR OCCURS DURING PROGRAM RELOCATION, THE PROGRAM WtLL 
HALT AT 234 OR 6634, DEPENDING UPON WHETHER THE PROGRAM |9 
LOCATED LOW OR HIGH, 

6.2 DATA ERRORS 

IF THE LINK IS SIT AFTER COMPLETION OF THE AND INSTRUCTION, 0« 
IF THE RESULTS OP THE AND INSTRUCTION ARE INCORRfCT, THE PROiSRAM 
WILL HALT AT rsi<r33i) WITH OATAl IN THE AC, 

DEPRESS CONTINUE TO DISPLAY DATA? IN THE AC, 

OEiPRESS CONTINUE TO DISPLAY AND INSTRUCTION IN AC, 

DEPRESS CONTINUE TO DISPLAY INSTRUCTION ADDRESS IN AC, 

DEPRESS CONTINUE TO DISPLAY DATA2 ADDRESS IN AC, 

DEPRESS CONTINUE TO DISPLAY INDIRECT POINTER (USED BY INDIRECT 

ANDl IN AC. 

DEPRESS CONTINUE TO RESUME TEST 

6.3 ERROR RECOVERY 
6,3.1 RELOCATION ERROR 

RELOAD PROGRAM 



6,3.2 OAT* ERROR 



I 



6.4 LOOPING 



SET SR00«1 TO PREVENT HALT AFTER ERROR, 

SET SR02»1 TO PREVENT RELOCATION, 

SET §R03«; TO SUPPRESS END OF PASS TYPEOUT, 

SET SR09.SR11-1 TO HOLD INSTRUCTION ANO DATA CONSTANT, 

RESTRICTIONS 



NONC 
8, EXEggTION TIME 



THE fROORAM FgRfONMS 409* RANDOM TESTS IN APPROXIMATILY 2 
SECONDS AND THCN RCL0CATE8, THE PROGRAM WILL TypE "A" AfTCR 
|ACH 40?« RAN06H TCStS UNLESS 9R09>i. 

9, PROSRAH PISCRSPTtON 

THE PR05RAM 15 INITIAILV LO*DEP INTO LOCATIONS 9lZt'%X77, 
WITH TEMPORARY StORACE LOCATIONS ON PAOE t, AfTER INITIAL ^ 
KEYfTARTi tHC RROORAM WILL SAVE RfM AND SIN LOAOlRf IN RAft I 
AND WILL THIN PROCKO tO UIC l,eCAt|0N8 izes-???? AS A TESt 
AREA. 

THE PROGRAM USES SEPARATE RANDOM NUMBER GENERATORS TO SENERaTE 
THE ANO INSTRUetlONi INSTRUCTION AND DATA AODRESSESi AND THE 
TWO ARGUMENTS TO BE "ANOED", THE INSTRUCTIONS AND DATA ARE 
STORED IN THEIR PREVIOUSLY GENERATED ADDRESSES, THE PROGRAM^ 
TRANSFERS TO THE l,OCATiON Qf THE INSTRUCTION AND EXECUTES It, 
THE PROGRAM THEN TRANSfERS TO A COMPARISON ROUTINE WHERE THE^ 
ACTyAL RESULt OF THE AND INSTRUCTION IS COMPARED TO A SIMUCAfEO 
AND. 

AFTER 4096 TESTS, THE PROGRAM TYPES "A", REL0CAT|S| AND 
CONTINUES TESTING. 



PAL10 V141 



17-JUN-71 



7:23 



PAGE 1 





00^0 


• 




0000 


0020 


TTANOL. 





0001 


5001 


INSTL. 


JMP 


0002 


0002 


INADDL. 


2 /STC 


0003 


0003 


daTaol, 


3 


0004 


0003 


IFLAGLi 


3 


0005 


0000 


PADDL. 





0006 


0000 


CIML, 





0007 


0000 


PAGL, 







0010 


• 10 




0010 


0000 


PNTRL. 







6007 




CAFS6007 




7501 




MQA»7501 




7421 




M0L=742l 




0266 




CNTR1L«L0HIL 




0020 


• 20 




0020 


0000 


TEMP3L, 






/Random and test 

/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MaYNaRD, MASS. 01754 

/V 82 07552 

/ 

/ 

/TEMPORARY TRANSFER LOCATIONS ON PAGE 
/ 



/STORAGE FOR AND INSTRUCTION 
; FOR AND INSTRUCTION ADDRESS 
/STORAGE FOR DATA ADDRESS 
/STORAGE FOR INSTRUCTION INDIRECT FLAG 
/STORAGE FOR DATA INDIRECT ADDRESS 



/INITIALIZATION AND CONTROU ROUTINES 
/ 





0200 


•200 






0200 


6007 


STARTL. 


CAF 




0201 


1204 




TAO 


.♦3 


0202 


3201 


PNTRlL. 


DCA 


.-1 


0203 


420S 


PNTR2L, 


JMS 


SAVBNL 


0204 


9274 


TEMPIL, 


JMP 

i 


SETLKL 








f 

/TRANSFER RIM AND 


0205 


0000 


SAVBNL' 


/ 






0206 


1374 




TAD 


C7600L 


0207 


3266 




OCA 


CNTRIL 


0210 


1374 




TAD 


C7600L 


0211 


3202 




DCA 


PNTRIL 


0212 


3203 




OCA 


PNTR2L 


0213 


4225 




JMS 


RELOL 


0214 


5605 




JMP I 


SAVBNL 
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/SAVE RIM AND BIN IN PAGE 
/ONLY AT INITIAL KEYSTART 
/201 BECOMES JMP SETLKL 
/FOR ALL FUTURE PASSES 

BIN LOADERS To PAGE 



NUMBER OF 

BE TRANSFERRED 



23 



/SET AC=-200. 

/LOCATIONS TO 

/FIRST "FROM" 

/LOCATION=7600 

/FIRST "TO" LOCATION=0 

/PERFORM TRANSFER 

/EXIT 

PAGE 2 



/TRANSFER RIM AND BIN LOADERt. 
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0215 


0000 


RESBNL. 







0216 


1374 




TAD 


C7600L 


0217 


3266 




DCA 


CNTRIL 


0220 


3222 




OCA 


PNTRIL 


0221 


1374 




TAD 


C7600L 


0222 


3203 




DCA 


PNTR2L 


0223 


4225 




JMS 


RELOL 


0224 


5615 




jMp I 
/ 


RESBNL 



/SET AC«-200, NUMBER OF 

/LOCATIONS TO BE TRANSFERRED 

/FIRST "FROM" ADDRESSs0 

/FIRST "TO" 

/ADDRESS»7600 

/PERFORM TRANSFER 

/EXIT 



/DATA TRANSFER ROUTINE 



0225 0000 

0226 1602 

0227 36B3 

0230 1602 

0231 7041 

0232 1603 

0233 7640 

0234 7402 

0235 2202 

0236 7000 

0237 2203 
1240 7000 

0241 2266 

0242 5226 

0243 5625 



0244 4215 

0245 1373 

0246 3266 

0247 1365 

0250 3202 

0251 1372 

0252 3203 

0253 4225 

0254 5772 



0255 4205 

0256 1373 

0257 3266 

0260 1372 

0261 3202 

0262 1365 

0263 3203 



RELOL. 



REHL, 



RELL, 



PAL10 V141 



PNTRIL 
PNTR2L 
PNTRIL 

PNTR2L 



PNTRIL 

PNTR2L 

CNTRIL 

REL0L*1 

RELOL 



/GET DATA 
/TRANSFER 
/GET DATA 

/COMPARE 

/TRANSFER ERROR 
/NEXT "FROM" LOCATION 

/NEXT "TO" LOCATION 



TAD I 

DCA I 

TAD I 

CIA 

TAO I 

SZA CLA 

HIT 

ISZ 

NOP 

ISH 

NOP 

ISZ 

JMP 

JMP I 

/ 

/TRANSFER PROGRAM TQ UPPER MEMORY 

/ 

RESBNL /TRANSFER RIM AND BIN LOADERS 

C7000L /SET AC«-1000. NUMBER OF 

CNTRIL /LOCATIONS TO BE TRANSFERRED 

C200L /FIRST "FROM" 

PNTRIL /ADDRESS«200 

C6600L /FIRST "TO" 

PNTR2L /AODRESSs6600 

RELOL /PERFORM TRANSFER 

C6600L /GO TO PROGRAM START 



I 



JMS 

TAO 

DCA 

TAO 

OCA 

TAO 

DCA 

JMS 

JMP 

/ 

/TRANSFER PROGRAM TO LOWER MEMORY 

/ 

JMS SAVBNL /TRANSFER RIM AND BIN LOADERS 

TAD C7000L /SET AC=-1000. NUMBER OF 

OCA CNTRIL /LOCATIONS TO BE TRANSFERED 

TAO C6600L /FIRST "FROM" 

DCA PNTRIL /AODRESS=6600 

TAO C200L /FIRST "TO" 

DCA PNTR2L /AOORESS=200 



0264 4225 

0265 5/65 
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RELOL /PERFORM TRANSFER 

I C200L /GO TO PROGRAM START 



JMS 

JMP 
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0266 0000 

0267 7330 



0270 
0271 



1266 
7630 



0272 1371 

0273 5666 



0274 7300 

0275 3202 

0276 4266 

0277 5377 



0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
03H 



0312 

0ii9 7421 

0314 7604 

«ai5 4300 

0li« 7650 

#^7 2312 

113*9 5712 



0000 
7040 
3204 

7501 
7040 
7421 
1204 
7501 
7040 
5700 



/DETERMINE IF PROGRAM IS IN LOWER OR UPPER ME'*ORY 

/ 

LOHIL. /PC 

CLA CLL CML RAR /SET AC=4000 

TAD .-2 /ADO PC 

S?L CLA /IS Ll!^K = 

TAO C6400L /NO, HIGH CORE 

JMP I LOHIL /RETURN 

/ 

/TRANSFER TO LINKAGE GENERATION 

/ 
SETlKL. CLA CLL 

OCA PNTRIL /CLEAR PASS COUNTER 

JMS LOHIL /DETERMINE IF PROGRAM IS HIGH OR LOW 

JMP GOSETL /GO TO TEST WITH ADDRESS MODIFIER IN AC 

/ 

/SIMULATE LOGICAL AND WITH A ANq B«N0T < (NOTa )0R (NOTb) ) 

/ 



SANOL. 

CMA 

OCA TEMPIL 

MOA 

CMA 

MQL 

TAO TEMPIL 

MQA 

CMA 

JMP I SANDL 

/ 

/TEST SWITCHES 

/ 
SWiTCLi 

MQU 

LAS 

JMS SANDL 

SNA CLA 

iSf SWITCL 

JMP I SWITCL 



/NOTA 

/SAVE NOTA 

/GET B 

/NOTB 

/SAVE NOTB 

/GET NOTA 

/OR WITH NOTB 

/COMPLEMENT 

/EXIT WITH RESULT IN AC 



/SAVE TEST BIT 

/GET SWITCHES 

/AND SWITCHES WITH TEST BIT 

/IS SMITeH f 

/NO SKIP INSTRUCTION AFTER RETURN 
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0321 


0000 


0322 


2202 


0323 


5721 


0324 


7332 


0325 


7012 


0326 


4312 


0327 


5336 


0330 


1366 


0331 


4337 


0332 


1367 


0333 


4337 


>j334 


1370 


J335 


4337 



EPA Si, 



/END OF 


PASS 


/ 









ISE 


PNTRIL 


JMP I 


EPASL 


CLA CLL 


CML RTR 


RTR 




JMS 


SWITCL 


JMP 


.*7 


TAO 


C215L 


JMS 


TYPEL 


TAD 


C212L 


JMS 


TYPEL 


TAO 


A 


JMS 


TYPEL 



/END OF PASS ? 
/NO. RETURN 

/SET ACs400 

/TEST SR03 

/SUPPRESS END OF PASS TYPEOUT 

/TYPE CARRIAGE RETURN 

/TYPE LINEFEED 

/TYPL 



0336 53*5 



0337 
0340 



0000 
6046 



0341 6041 

0342 5341 

0343 7200 

0344 5737 



TYPEL. 



PAl.10 V141 



JMP 


HALTL 


/ 




/OUTPUT 


CHARACTER 


/ 









TtS 




TSF 




JMP 


.-1 


CLA 




JMP I 


TYPEL 


17-jUN- 


71 7 
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/TE'^'.FOR HALT, RELOCATION 
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/CHECK 
/ 

CLA CLL 


FOR HALT 


0345 


7332 


HALTL. 


CML RTR 


0346 


4312 




JMS 


SWITCL 


0347 


7410 




SKP 




0350 


9355 




JMP 


RRELL 


0351 


4266 




JHS 


LOHIL 


0392 


7650 




SNA CLA 




0353 


4215 




JHS 


RESeNL 


0394 


7402 




HWT 

/ 

/CHECK 

/ 

CLA CLL 










roR RELOCATION 


0355 


7332 


RRELL. 


CML RTR 


0356 


7010 




RAR 




0357 


4312 




JMS 


SWITCL 


0360 


9721 




JMP I 


EPASL 


0361 


4266 




JMS 


LOHIL 


0362 


7690 




SNA CLA 




0363 


9244 




JMP 


REHL 


0364 


9295 




JMP 


RELL 


0365 


0200 


C200L* 


200 




0366 


0215 


C2151,. 


215 




0367 


0212 


C212L. 


212 




0370 


0301 


A> 


301 




0371 


6400 


C6400L> 


6400 




0372 


6600 


C6600Lf 


6600 




0373 


7000 


C7000L' 


7000 




0374 


7600 


C7600L. 


7600 
/ 
• 377 






0377 






0377 


7000 


GOSETL. 


NOP 
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/SET AC=2000 

/TEST SR01 

/SR01=1, HALT 

/CHECK FOR RELOCATION 

/DETERMINE IF PROGRAM IS HIGH OR LOW 

/AC=0. PROGRAM LOW 

/PROGRAM LOW. RESTORE LOADERS 



/SET AC=1000 

/TEST SR02 

/SR02=1,DO NOT RELOCATE PROGRAM 

/DETERMINE IF PROGRAM IS HIGH OR LOW 

/AC:0* PROGRAM LOW 

/PROGRAM LOW. RELOCATE TO HIGH CORE 

/PROGRAM HIGH, RELOCATE TO LOW CORE 
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0400 


• 400 






0400 


3237 


SETAL. 


DCA 


TEMPL 


0401 


1242 




TAD 


LISTL 


0402 


1237 




TAD 


TEMPL 



/SET UP ADDRESS POINTERS AND CONSTANTS AND TRANSFER TO NEXT PAGE 
/ 

/SAVE ADDRESS MODIFIER 
/GET POINTER FOR TRANSFER 
/MODIFY FOR LOW OR HIGH CORE 



0403 


3010 




DCa 


PNTRL 


0404 


1243 




TAD 


LGENL 


0405 


12.37 




TAD 


TEMPL 


0406 


3410 




DCA I 


PNTRL 


0407 


1245 




TAD 


LSANOL 


0410 


1237 




TAD 


TEMPL 


0411 


3410 




DCA I 


PNTRL 


0412 


1246 




TAD 


LRETUL 


0413 


1237 




TAD 


TEMPL 


0414 


3410 




DCA I 


PNTRL 


0415 


1247 




TAD 


LSHITL 


0416 


1237 




TAD 


TEMPL 


041? 


3410 




OCA I 


PNTRL 


0420 


1244 




TAD 


LEPASL 


0421 


1237 




TAD 


TEMPL 


0422 


3410 




DCA I 


PNTRL 


0423 


1237 




TAD 


TEMPL 


0424 


7640 




SEA CLA 




0425 


5233 




JMP 


LHICOL 


0426 


1240 




TAD 


L200L 


0427 


3410 




OCA I 


PNTRL 


0430 


1250 




TAD 


L6600L 


0431 


3410 




DCA I 


PNTRL 


0432 


5377 




JMP 


GOTSTL 


0433 


3410 


LHICOL, 


OCA I 


PNTRL 


0434 


1251 




TAD 


L-1201L 


0435 


3410 




DCA I 


PNTRL 


0436 


5377 




JMP 


GOTSTL 
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0457 


0000 


TEMPL. 


/ 






0440 


0200 


L200I.. 


200 




0441 


7000 


L7000L. 


7000 




0442 


0793 


LISTL» 


TCENL-1 




0443 


1000 


LGENL. 


GENL 




0444 


0.J21 


LEPASl. 


EPASL 




0445 


0300 


LSANDL. 


SANOU 




0446 


0712 


LRETUL. 


TRETUU 




0447 


0312 


LSWITL. 


SWITCL 




0450 


6600 


L6600L> 


6600 




0451 


1201 
0577 


L1201L. 
•577 


1201 




0577 


7000 


GOTSTL. 


NOP 
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/SET UP AUTO-U'DEX REGISTER 

/GET POINTER TO INSTRUCTION GENERATION 

/MODIFY FOR LOW OR HIGH CORE 

/TRANSFER TO NEXT PAGE 

/GET POINTER TO AND SiMULATER 

/MODIFY FOR LOW OR HIGH CORE 

/TRANSFER TO NEXT PAGE 

/GET POINTER FOR EXECUTION RETURN 

/MODIFY FOR LOW OR HIGH CORE 

/TRANSFER TO NEXT PAGE 

/GET POINTER TO SWITCH SENSING 

/MODIFY FOR LOW OR HIGH CORE 

/TRANSFER TO NEXT PAGE 

/GET POINTER TO END OF PASS 

/MODIFY FOR LOW OR HIGH CORE 

/TRANSFER TO NEXT PAGE 

/GET ADDRESS MODIFIER 

/IS TEST IN LOW CORE 

/NO, SET UP FOR HIGH CORE 

/SET PAGE EXCLUSION BIT 

/TRANSFER TO NEXT PAGE 

/GET LOW CORE ADDRESS LIMIT 

/TRANSFER TO NEXT PAGE 

/GO TO TEST 

/CLERA PACE EXCLUSION BIT 

/GET HIGH CORE ADDRESS LIMIT 

/TRANSFER TO NEXT PAGE 

/GO TO TEST 
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/GENERATE TEST 

/ 




0600 


• 600 


0600 


7300 


TESTIL. 


CLA CLL 


0601 


1355 




TAD TANDL 


0602 


3000 




DCA TTANDL 


Y03 


7001 




lAC 


^04 


4757 




JMS I TSWITL 



INSTRUCTION AND DATA 



/GET POINTER TO SIMULATED AND 
/PLACE IN TRANSFER LOCATION 



/PLACE IN 1 
/SET \ 
/TEST 11 



0605 


5224 


JMP 




TDATIL 


0606 


1362 


TAD 




TLIML 


0607 


3026 


OCA 




LIML 


0610 


1361 


TAD 




TPAGBL 


0611 


30Z7 


OCA 




PAGL 


0612 


4754 


JMS 


1 


TGENL 


0613 


3365 


OCA 




tiflgu 


0614 


1001 


TAD 




INSTL 


0615 


3363 


DCA 




TINSTU 


0616 


1002 


TAD 




INADDL 


0617 


3364 


DCA 




TINADL 


0620 


1003 


TAD 




DATADL 


0621 


3366 


DCA 




TDATAL 


0622 


i005 


TAD 




PADOL 


0623 


3367 


DCA 




TPADDL 


0624 


7105 


TDAT1L» CIL 


lAC 


RAL 


0625 


4757 


JMS 


I 


TSWITL 


0626 


5234 


JMP 




TDAT2L 


0627 


1370 


TAD 




TDAIL 


0630 


7104 


CLL 


RAL 




0631 


7430 


S2L 






0632 


1374 


TAD 




T3L 


0633 


3370 


DCA 




TDAIL 


0634 


7307 


TDAT2L. CLA 


CLL 


lAC RTL 


0635 


4797 


JMS 


I 


TSWITL 


0636 


9244 


JMP 




SETTL 


0637 


1371 


TAD 




TDA2L 


0640 


7104 


CLU 


RAL 




0641 


7430 


SIL 






0642 


1374 


TAD 




TSL 


0643 


3371 


DCA 




TDA2L 




Pk\.%t 


VKl 17.JUN- 


71 



/SR 

/NO 
/SAVh 
/GET PAGE 



y^ 



DO NOT GENERATE 
T ADDRESS LIMIT 



INSTRUCTION 



EXCLUSION BIT 



/GENERATE INSTRUCTION 

/SAVE INDIRECT FLA 

/GET INSTRUCTION 

/SAVE IT 

/GET INSTRUCTION ADDRESS 

/SAVE IT 

/GET DATA ADDRESS 

/SAVE IT 

/GET INDIRECT TO DATA 

/SAVE IT 

/SET AC=2 

/TEST SR10 

/SR10=1, DO NOT GENERATE DATAl 

/GENERATE RANDOM NUMBER 



/SET AC=4 

/TEST SR09 

/SR09»1, DO NOT GENERATE DATA2 

/GENERATE RANDOM NUMBER 
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0644 


7300 


0645 


1363 


0646 


3764 


0647 


1365 


0650 


7650 


0691 


9267 


06S2 


1366 


0653 


1375 


0654 


7630 


0655 


9262 


0656 


1366 


0657 


1376 


0660 


7630 


0661 


7040 


0662 


1367 


0663 


3/66 


0664 


1370 


0665 


3767 


0666 


5271 


0667 


1370 



SETTL. 



DIRL. 



/SET UP 


INSTRUCTION 


/ALONG 1 

/ 

CLA CLL 


KITH RETURN 




TAD 


TINSTL 


D^A I 


TINADL 


TAO 


tiflgl 


SNA CLA 




JMP 


DIRL 


TAD 


TDATAL 


TAD 


T7760 


S2L CLA 




JMP 


.♦5 


TAO 


TDATAL 


TAD 


T777a 


SIL CLA 




CMA 




TAD 


TPADDL 


DCA I 


TDATAL 


TAD 


TDAIL 


DCA I 


TPADDL 


JMP 


OOTSTL 


TAO 


TOAIL 



AND DATA AT TEST ADDRESS 
TO THIS ROUTINE 



/GET INSTRUCTION 
/STORE IN TEST LOCATION 
/GET INDIRECT FLAG 
/IS INSTRUCTION INDIRECT 
/NO, GET DATA 
/INDIRECT, IS ADDRESS 
/AUTO-INOEX REGISTER 

/NO. USE POINTER AS IS 



/ADDRESS IS AUTO-INOEX REGISTER 

/GET INDIRECT ADDRESS 

/STORE IN TEST LOCATION 

/GET DATA 

/STORE IN TEST LOCATION 

/GET DATA 



0670 3/66 



0671 


7300 


0672 


1370 


0673 


7421 


0674 


1371 


0675 


4755 


0676 


3372 


0677 


1356 


0700 


3000 


0701 


1364 


0702 


7001 


0703 


7450 


0704 


5200 


0705 


3353 


0706 


1373 


0707 


3753 


0710 


1371 


0711 


9764 



OOTSTl, 



DOANOL. 



DCA I TDATAL 

/ 

/SIMULATE "AND" 

/ 



/STORE IN TEST LOCATION 



CLA 
TAD 

mql 

TAD 

JMS 

DCA 

/ 

/CO 

/ 

TAD 
OCA 
TAD 
lAC 
SNA 
JMP 
DCA 
TAD 
DCA 
TAO 
JMP 



CLL 



TOAIL 



TDA2L 

I TANDL 

TSIML 

TO TEST 

TRETTL 
TTANOL 
TINADL 



TESTIL 

TEMP2L 

T540aL 

TEMP2L 

T0A2L 

TINADL 



/GET DATAl 
/SAVE IN MQ 
/GET 0ATA2 
/DO SIMULATION 
/SAVE ANSWER 



/GET RETURN ADDRESS 

/SAVE 

/GET INSTRUCTION ADDRESS 

/INCREMENT 

/IS IT 

/YES» GENERATE NEW INFORMATION 

/NO, SAVE 

/GET RETURN INSTRUCTION 

/PUT IN TEST LOCATION 

/GET DATA2 

/EXECUTE "AND" 



PAL10 V141 



17-JUN-71 



7J23 



PAGE 10 



/RETURN HERE AFTER EXECUTION 
/ 



8712 


3377 


TRETUL. OCA 




TRACL 


0713 


7430 


SiL 






0714 


4324 


JHS 




ERROR 


0715 


1372 


TAO 




TSIML 


0716 


70'*1 


ClA 






0717 


1377 


TAD 




TRACL 


0720 


7640 


S2A 


CLA 




0721 


4324 


JMS 




ERROR 


0722 


4760 


JMS 


I 


TEPASL 


0723 


9200 


JMP 




TESTIL 






/ 

/ERROR 


HANDLER 


0724 


0000 


t 

ERROR. 






0725 


7330 


CLA 


CLL 


CML RAR 


0726 


4757 


JMS 


I 


TSWITL 


0727 


5351 


JMP 




TEXITL 


0730 


1370 


TAO 




TDAIL 


0731 


7402 


HLT 






0732 


7200 


CLA 






0733 


1371 


TAD 




T0A2L 


0734 


7402 


HLT 






0735 


72B0 


CLA 






0736 


1001 


TAO 




INSTL 


0737 


7402 


HLT 






>?40 
J41 


7200 


CLA 






1364 


TAD 




TINADL 



/SAVE AC 

/IS LINK«1 

/LINK*1, ERROR 

/GET SIMULATION RESULT 

/ADD REAL RESULT 
/ARE THEY THE SAME 
/NO, ERROR 
/ENO OF PASS 



/SET AC=4000 

/TEST SR00 

/SR00=1, DO NOT HALT ON ERROR 

/DISPLAY DATAl IN AC 



/DISPLAY 0ATA2 IN AC 

/DISPLAY INSTRUCTION IN AC 

/DISPl /INSTRUCTION ADDRESS IN AC 



0742 


7422 




HIT 


0743 


7200 




CLA 


0744 


1366 




TAD Ti 


0745 


7402 




HLT 


0746 


72ee 




CLA 


0747 


1367 




TAO T' 


0750 


7422 




HIT 


0751 


73Ze 


TEXIT^, 


CLA CLL 


0752 


5724 


JMP I 


ERROR 
/ 

/ 
/ 



0753 


0000 


TEMP2L. 


0754 


0000 


TGENL. 





0755 


0000 


TANOL. 





0756 


0000 


TRETTL. 





0757 


0000 


Tswnt, 





0760 


0000 


TEPASL. 





0761 


0000 


TPAGBL. 





0762 


0000 


TLIML. 





0763 


0000 


TINSTL. 





0764 


0000 


TINADL. 





0765 


0000 


TIFLGL, 







PhllZ 


V141 


17-JUN-71 


0766 


0000 


TDATAL. 





0767 


0000 


TPADOL. 





0770 


0021 


TDAIL. 


2i 


0771 


0037 


T0A2L. 


37 


0772 


0000 


TSIML. 





0773 


9400 


T5400L. 


5400 


0774 


8003 


T3L. 


S 


0775 


77*0 


T776», 


7760 


0776 


7770 


T777f, 


7770 


0777 


f0B0 


TRACL» 







PAL10 


V141 


17-JUN-71 



TDATAL 



TPAOOL 



/OS 



1, .-AY DATA 



ADDRESS IN AC 



/DSIPLAY INDIRECT IN AC 



7l23 



PACE 10-1 



7;23 



PACE 11 



J0B0 
1000 0000 



1001 
1082 
1003 
1004 
1005 
1006 
1007 
1010 
1011 
1012 
1013 
101 4 



1367 
4340 
5367 
1367 
7421 
1007 
7501 
7421 
1371 
4400 
3001 

i0ei 



•1000 

GENL. 



GANOL. 



/GENERATE INSTRUCTIONS AND ADDRESSES 
/ 




/ 

/GENERATE "AND" 
/ 



TAO 
JMS 
DCA 

TAD 
MOL 

TAD 
MQA 
MQL 
TAO 
JMS 
DCA 
TAD 



RIL 
RANOL 
RIL 
RIL 

PAGL 



K0777 
TTANDL 
INSTL 
INSTL 



INSTRUCTION 



/GENERATE RANDOM NUMBER 
/SAVE NUMBER 



/OR RANDOM NUMBER WITH EXCLUSION BIT 

/MASK OFF 3MSB 
/TO GET "0" OP CODE 
/SAVE INSTRUCTION 
/GET INSTRUCTION 



1015 


4354 


1016 


3020 


1017 


1372 


1020 


4340 


1021 


3372 


1022 


4345 


1023 


1372 


1024 


7620 


1025 


5217 


1026 


1372 


1027 


1373 


1030 


7620 


1031 


5246 


1032 


1020 


1033 


7041 


1034 


1372 


10S5 


4361 


1036 


7700 


1037 


9217 


1040 


1020 


1041 


7650 


1042 


9201 


1043 


1372 


1044 


3002 


1045 


9261 


1046 


1001 


1047 


7421 


1050 


1376 


1051 


4400 


1092 


7650 


1053 


9240 




^Al.11 


1094 


1372 


1055 


4394 


1096 


7041 


1057 


1020 


1060 


9235 



GANADL, 



PAGALi 



PAL. 



PAGAOL. 



V141 



PAI.10 V141 



JMS 


AND17L 


DCA 


TEMP3L 


/ 

/GENERATE ADOR 


/ 

TAD 


R2L 


JMS 


RANDL 


DCA 


R2L 


JMS 


CLIML 


TAD 


R2L 


SNL CLA 




JMP 


GANADL 


TAO 


R2L 


TAD 


P0L 


SNL CLA 




JHP 


PAGAOL 


TAO 


TEMP3L 


CIA 




TAO 


R2L 


JMS 


absl 


SMA CLA 




JHP 


GANADL 


TAD 


TEMP3L 


SNA CLA 




JMP 


GANDL 


TAD 


R2L 


OCA 


INADOL 


JMP 


DAADL 


TAO 


INSTL 


MOL 




TAO 


K200L 


JMS I 


TTANDL 


SNA CLA 




JHP 


PAL 


17-JUN-' 


71 


TAD 


R2L 


JMS 


AND17L 


CIA 




TAO 


TEMP3L 


JMP 


PA6AL 


17-juN-' 


71 



7:23 



/EXTRACT PAGE ADDRESS OF INSTRUCTION 

/SAVE Page address of instruction 

INSTRUCTION 



/generate RANDOM NUMBER 

/SAVE NUMBER 

/SET UP TO TEST ADDRESS LIMITS 



/IS ADDRESS WITHIN LIMITS 
/NO. GENERATE NEW ADDRESS 



/IS ADDRESS ON PAGE 

/NO 

/GET PAGE ADDRESS OF INSTRUCTION 

/SUBTRACT ADDRESS 

/IS DIFFERENCE >2 

/NO 

/GET PAGE ADDRESS OF INSTRUCTION 

/DOES INSTRUCTION REFERENCE LOCATION 

/YES, GENERATE NEM INSTRUCTION 

/YES. USE ADDRESS 

/GENERATE ADDRESS FOR DATA 
/GET INSTRUCTION 



/MASK CURRENT PAGE BIT 

/IS PAGE BIT SET 

/NO. USE ADDRESS AS IS 

PAGE 11-1 



7j23 



PAGE 12 



/GENERATE ADDRESS FOR DATA 
/ 



1061 


1001 DAADL. TAD 


INSTL 


1062 


7421 


MOL 




1063 


1376 


TAD 


K200L 


1064 


4400 


JMS I 


TTANOL 


1065 


7650 


SNA CLA 




1066 


5306 


JMP 


P0AL 


1067 


1002 


TAD 


INAODL 


^70 


7421 


MQL 




1373 


TAO 


P0L 



/GET INSTRUCTION 

/DOES INSTRUCTION REFERENCE PAGE 
/YES 



I 1073 742? iol ' ''*'°' '^'V ' f**" "' ^''^''"S 

TAD TEMP3L 
MQA /"OR" TOGETHER TO GET 

OCA datadl /data address 

INDIRL. TAD INSTL 
MQL 

TAD K400L 

JMS I TTANDL 

S2A CLA /IS INSTRUCTION INDIRECT 

JMP PADL /YES, INSTRUCTION IS INDIRECT 

JMP I GENL /EXIT 

P0AL. TAD TEMP3L 

DCA DATADL 

JMP INDIRL 
/ 

/GENERATE INDIRECT ADDRESS FOR DATA 
/ 

PADL, TAD R3L /GENERATE RANDOM NUMBER 

JMS RANDL 

DCA R3L 

JMS CLIML 

TAD R3L 

SNL CLA /IS ADDRESS WITHIN LIMITS 

JMP PADL /NO, TRY AGAIN 

TAD INADOL /GET INSTRUCTION ADDRESS 

CIA 

TAD R3L /SUBSTRACT INDIRECT 

JMS ABSL /GENERATE -ABSOLUTE VALUE 

JMP ^^^ PADL ^°? INSTRUCTION AND ADDRESS INTERFERE 

TAD DATADL 

CIA 

TAO R3L 

JMS ABSL 

SMA CLA 

JM^ PADL 

TAD R3L /NO 

DCA PADDL 

CMA 

Vl^l 17-JUN-71 7123 PACE 12-1 

JMP I GENL /EXIT 

PAL10 V141 17-JUN-71 7»23 PAGE 13 

1140 0000 RaNDL. 

1141 7104 CLL RAL 

1142 7430 SZL 

1143 1370 TAD K3L 

1144 5740 jt^p I RA^ioL 

/ 
/ 
/ 

1145 0000 £LIML. 

1146 1007 TAD PAGL 

1147 7100 CLL 



ilO/^ 


«'»lfrB 


1073 


7421 


1074 


1020 


1075 


7501 


1076 


3003 


1077 


IBZI 


1100 


7421 


1101 


1375 


1102 


4400 


1103 


7640 


1104 


5311 


1105 


5600 


1106 


1020 


1107 


3003 


1110 


5277 


1111 


1377 


1112 


4340 


1113 


3377 


1114 


4345 


1115 


1377 


1116 


7620 


1117 


53H 


1120 


1002 


1121 


7041 


1122 


1377 


1123 


4361 


1124 


7700 


1125 


5311 


1126 


1003 


1127 


7041 


1130 


1377 


1131 


«36l 


1132 


7700 


1133 


S311 


1134 


1377 


1135 


3005 


1136 


7040 




PAL10 


1137 


5600 



1150 


7650 


SNA CLA 






1151 


7020 




CML 




1152 


10B6 




TAD 


LIML 


1153 


5745 




JMP I 
/ 
/ 
/ 




CLIML 


1154 


00^0 


AND17L. 




1155 


7421 




MQL 




1156 


1374 




TAD 


K0177L 


1157 


4400 




JMS I 


TTANDL 


1160 


5754 




JMP I 

/ 
/ 




AND17L 


1161 


0000 


ABSL. 




1162 


7500 




SMA 




1163 


7041 




CIA 




1164 


7001 




lAC 




1165 


7001 




lAC 




1166 


5/61 




JMP 1 

/ 

/ 

t 

1 


ABSL 


1167 


0001 


N1U> 




1170 


0003 


K3L. 


S 




1171 


0777 


K0777, 


777 




1172 


0005 


R2L> 


5 




1173 


7600 


P0L. 


7600 




1174 


0177 


K0177L. 


177 




1175 


0400 


K400L> 


400 




1176 


0200 


K200L> 


200 




1177 


0015 


R3L. 


15 
S 

17-jgN' 






PAH0 


V141 


■71 
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PAGE 13-1 



0000 
0100 


imiiii 
00000000 


10000000 

00000000 


10000000 

00000000 


00000000 
00000000 


00000000 
00000000 


00000000 

00000000 


00000000 
00000000 


00000000 
00000000 


0200 
0300 


11111111 
11111111 


iiiiiiii 
imiiii 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111001 


0400 
0500 


11111111 
00000000 


11111111 
00000000 


11111111 
00000000 


11111111 
00000000 


11111111 
00000000 


11000000 
00000000 


00000000 
00000000 


00000000 
00000001 


0600 
0700 


11111111 
11111111 


11111111 
iiiiiiii 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


1000 
1100 


11111111 
11111111 


iiiiiiii 
iiiiiiii 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


11111111 
11111111 


1200 
1300 



















1400 
1500 

1600 
1700 



2000 
2100 

2200 
2300 

2400 
2500 

2600 
2700 



3000 
3100 

3200 
3300 

3400 
3500 



3600 
3700 

/ ^AL10 V141 17^JUN-71 7S23 PAGE 13-2 



4fl«t 

4100 

420ff 
4300 

4400 
4500 

4600 
4700 



5000 
5100 

5200 
5300 

5400 
5500 

5600 
5700 



6000 






6100 






6200 






6300 






6400 






6500 






6600 






6700 






7000 






7100 






7200 






7300 






7400 






7500 






7600 






7700 








/ 


PALI 




A 


0370 




AeSL 


1161 




AND17L 


1154 




C200L 


0365 




_ C212L 


0367 




C215i. 


0366 




C640aL 


0371 




066001 


0372 




C7000i 


0373 




C7600L 


0374 




CAF 


6007 




CLIMU 


11<5 




CNTRlL 


0266 




OAADL 


1061 




OATAOL 


0003 




DIRL 


0667 




DOANDL 


0677 




OOTSTL 


0671 




EPASU 


0>J21 




ERROR 


0724 




GANADL 


1017 




GANDL 


1001 




GENL 


1000 




GOSETL 


0377 




GOTSTL 


0577 




HALTL 


0345 




IFLAGL 


0004 




INADDL 


0002 




INDIRL 


1077 




)5^ 


0001 




1174 




1171 



V141 



ir-juN- 


■71 


PAODL 


0005 


PAOL 


1111 


PASAOi 


1046 


PAGAL 


1035 


PAGU 


0007 


PAk 


1040 


PNTRIL 


0202 


PNTR21. 


0203 


PNTRL 


0010 


RIL 


1167 


R2L 


1172 


R3U 


1177 


RANOL 


1140 


REHL 


0244 


RELL 


0255 


REUOl 


0225 


RCSBNL 


0215 


rrell 


0355 


SANOL 


0300 


SAVBNL 


0205 


setal 


0400 


SETLKL 


0274 


SETTL 


0644 


STARTL 


0200 


SWITCL 


0312 


T3L 


0774 


T5400L 


0773 


T7760 


0775 


T7770 


0776 


TANDL 


0755 


TDAIL 


0770 


TDA2L 


0771 



7J23 



PACE 13.3 



TSIML 
TSWITL 
TTANOL 
TYPEL 



0772 
0757 
0000 
0337 



Kr \ 


1176 


K. J 


1170 


KAZ01 


1175 


L1201L 


0451 


L200L 


0440 


L6600L 


0450 


L7000L 


0441 


LEPASL 


0444 


LGENL 


0443 


LHICOL 


0^33 


LI ML 


0006 


LISTL 


0442 


LOHIL 


0266 


LRETUL 


0446 


LSANDL 


0445 


LSWITL 


0447 


MOA 


7501 


MOL 


7421 


P0AL 


1106 


P0L 


1173 



TDATIL 
TDAT2L 
TDATAL 
TEMPIL 
TEMP2L 
TEMP3L 
TEMPL 

tepasl 

TESTIL 

TEXITL 

TGE^L 

TIFLGL 

TIVADL 

TINSTL 

TLIML 

TPAODi 

TPAGBL 

TRACL 

TRETTl 

TRETUU 



0624 
0634 
0766 
0204 
0753 
0020 
0437 
0760 
0600 
0751 
0754 
0765 
0764 
0763 
0762 
0767 
0761 
0777 
0756 
0712 



PAU10 V141 



17-JUN-71 
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PACE 13-4 



ERRORS DETECTEDI 
tINKS GENERATED* 
RUN-TIMEJ S SECONDS 
2K CORE USED 



